/ Club KidSoft Volume 2 #3 / CKSMACV23.BIN / DEMOS / CyberTown Demo / PetsDemo / PetsDemo.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 97 43 4c | 00 00 00 08 00 00 00 20 |......CL|....... |
|00000010| 00 07 00 00 00 00 00 00 | 10 46 00 00 10 77 00 00 |........|.F...w..|
|00000020| 10 9f 00 00 10 9f 00 00 | 10 a1 00 00 10 a1 00 00 |........|........|
|00000030| 10 a1 6f 6e 20 66 73 20 | 73 74 61 72 74 2c 20 65 |..on fs |start, e|
|00000040| 6e 64 0d 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |nd.  rep|eat with|
|00000050| 20 66 20 3d 20 73 74 61 | 72 74 20 74 6f 20 65 6e | f = sta|rt to en|
|00000060| 64 0d 20 20 20 20 67 6f | 20 74 6f 20 66 72 61 6d |d.    go| to fram|
|00000070| 65 20 66 0d 20 20 20 20 | 72 65 70 65 61 74 20 77 |e f.    |repeat w|
|00000080| 69 74 68 20 63 20 3d 20 | 31 20 74 6f 20 32 34 0d |ith c = |1 to 24.|
|00000090| 20 20 20 20 20 20 69 66 | 20 74 68 65 20 73 74 72 |      if| the str|
|000000a0| 65 74 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 63 |etch of |sprite c|
|000000b0| 20 41 4e 44 20 74 68 65 | 20 74 79 70 65 20 6f 66 | AND the| type of|
|000000c0| 20 73 70 72 69 74 65 20 | 63 20 3d 20 31 20 74 68 | sprite |c = 1 th|
|000000d0| 65 6e 0d 20 20 20 20 20 | 20 20 20 70 75 74 20 22 |en.     |   put "|
|000000e0| 73 70 72 69 74 65 20 22 | 26 63 26 22 20 69 73 20 |sprite "|&c&" is |
|000000f0| 73 74 72 65 74 63 68 65 | 64 20 69 6e 20 66 72 61 |stretche|d in fra|
|00000100| 6d 65 20 22 26 66 0d 20 | 20 20 20 20 20 65 6e 64 |me "&f. |     end|
|00000110| 20 69 66 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 | if.    |end repe|
|00000120| 61 74 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |at.  end| repeat.|
|00000130| 65 6e 64 20 66 73 0d 0d | 4f 6e 20 50 6c 61 79 52 |end fs..|On PlayR|
|00000140| 61 6e 44 6f 6d 20 74 68 | 65 4c 61 62 65 6c 2c 20 |anDom th|eLabel, |
|00000150| 74 68 65 4e 75 6d 0d 20 | 20 50 6c 61 79 20 66 72 |theNum. | Play fr|
|00000160| 61 6d 65 20 77 6f 72 64 | 20 28 72 61 6e 64 6f 6d |ame word| (random|
|00000170| 20 28 74 68 65 4e 75 6d | 29 29 20 6f 66 20 74 68 | (theNum|)) of th|
|00000180| 65 4c 61 62 65 6c 0d 65 | 6e 64 20 50 6c 61 79 52 |eLabel.e|nd PlayR|
|00000190| 61 6e 64 6f 6d 0d 0d 6f | 6e 20 73 74 61 72 74 4d |andom..o|n startM|
|000001a0| 6f 76 69 65 0d 20 20 77 | 68 65 6e 20 6d 6f 75 73 |ovie.  w|hen mous|
|000001b0| 65 64 6f 77 6e 20 74 68 | 65 6e 20 73 74 6f 70 73 |edown th|en stops|
|000001c0| 6f 6e 67 0d 65 6e 64 20 | 73 74 61 72 74 4d 6f 76 |ong.end |startMov|
|000001d0| 69 65 0d 0d 6f 6e 20 73 | 74 6f 70 53 6f 6e 67 0d |ie..on s|topSong.|
|000001e0| 20 20 73 6f 75 6e 64 20 | 73 74 6f 70 20 31 0d 20 |  sound |stop 1. |
|000001f0| 20 77 68 65 6e 20 6d 6f | 75 73 65 44 6f 77 6e 20 | when mo|useDown |
|00000200| 74 68 65 6e 20 6e 6f 74 | 68 69 6e 67 0d 65 6e 64 |then not|hing.end|
|00000210| 20 73 74 6f 70 53 6f 6e | 67 0d 0d 4f 6e 20 53 65 | stopSon|g..On Se|
|00000220| 74 62 75 64 73 0d 20 20 | 47 6c 6f 62 61 6c 20 4f |tbuds.  |Global O|
|00000230| 76 65 72 61 6c 6c 42 75 | 64 2c 42 75 64 53 74 61 |verallBu|d,BudSta|
|00000240| 6d 70 0d 20 20 70 75 74 | 20 31 33 20 69 6e 74 6f |mp.  put| 13 into|
|00000250| 20 42 61 63 6b 47 72 6f | 75 6e 64 0d 20 20 70 75 | BackGro|und.  pu|
|00000260| 74 20 32 32 20 69 6e 74 | 6f 20 42 75 64 53 74 61 |t 22 int|o BudSta|
|00000270| 6d 70 0d 20 20 70 75 74 | 20 36 34 20 69 6e 74 6f |mp.  put| 64 into|
|00000280| 20 56 53 65 67 0d 20 20 | 70 75 74 20 35 38 20 69 | VSeg.  |put 58 i|
|00000290| 6e 74 6f 20 48 53 65 67 | 0d 20 20 53 65 74 20 74 |nto HSeg|.  Set t|
|000002a0| 68 65 20 70 75 70 70 65 | 74 20 6f 66 20 73 70 72 |he puppe|t of spr|
|000002b0| 69 74 65 20 42 75 64 53 | 54 61 6d 70 20 3d 20 46 |ite BudS|Tamp = F|
|000002c0| 41 4c 53 45 0d 20 20 75 | 70 64 61 74 65 53 74 61 |ALSE.  u|pdateSta|
|000002d0| 67 65 0d 20 20 73 65 74 | 20 74 68 65 20 70 75 70 |ge.  set| the pup|
|000002e0| 70 65 74 20 6f 66 20 73 | 70 72 69 74 65 20 42 75 |pet of s|prite Bu|
|000002f0| 64 53 74 61 6d 70 20 3d | 20 54 52 55 45 0d 20 20 |dStamp =| TRUE.  |
|00000300| 53 65 74 20 74 68 65 20 | 74 72 61 69 6c 73 20 6f |Set the |trails o|
|00000310| 66 20 73 70 72 69 74 65 | 20 42 75 64 53 74 61 6d |f sprite| BudStam|
|00000320| 70 20 3d 20 54 52 55 45 | 0d 20 20 53 65 74 20 74 |p = TRUE|.  Set t|
|00000330| 68 65 20 73 74 72 65 74 | 63 68 20 6f 66 20 73 70 |he stret|ch of sp|
|00000340| 72 69 74 65 20 42 75 64 | 53 74 61 6d 70 20 3d 20 |rite Bud|Stamp = |
|00000350| 46 41 4c 53 45 0d 20 20 | 53 65 74 20 74 68 65 20 |FALSE.  |Set the |
|00000360| 69 6e 6b 20 6f 66 20 73 | 70 72 69 74 65 20 42 55 |ink of s|prite BU|
|00000370| 64 53 74 61 6d 70 20 3d | 20 38 0d 20 20 70 75 74 |dStamp =| 8.  put|
|00000380| 20 74 68 65 20 6c 65 66 | 74 20 6f 66 20 73 70 72 | the lef|t of spr|
|00000390| 69 74 65 20 42 61 63 6b | 47 72 6f 75 6e 64 20 2b |ite Back|Ground +|
|000003a0| 20 34 20 69 6e 74 6f 20 | 6c 65 66 74 4f 66 66 0d | 4 into |leftOff.|
|000003b0| 20 20 70 75 74 20 74 68 | 65 20 74 6f 70 20 6f 66 |  put th|e top of|
|000003c0| 20 73 70 72 69 74 65 20 | 42 61 63 6b 47 72 6f 75 | sprite |BackGrou|
|000003d0| 6e 64 20 2b 20 35 33 20 | 69 6e 74 6f 20 54 6f 70 |nd + 53 |into Top|
|000003e0| 4f 66 66 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |Off.  re|peat wit|
|000003f0| 68 20 69 6e 64 65 78 20 | 3d 20 32 20 74 6f 20 36 |h index |= 2 to 6|
|00000400| 0d 20 20 20 20 70 75 74 | 20 69 6e 64 65 78 0d 20 |.    put| index. |
|00000410| 20 20 20 70 75 74 20 4f | 76 65 72 61 6c 6c 42 75 |   put O|verallBu|
|00000420| 64 28 6d 47 65 74 2c 69 | 6e 64 65 78 29 20 69 6e |d(mGet,i|ndex) in|
|00000430| 74 6f 20 42 75 64 74 79 | 70 65 73 0d 20 20 20 20 |to Budty|pes.    |
|00000440| 53 65 74 20 74 68 65 20 | 4c 6f 63 48 20 6f 66 20 |Set the |LocH of |
|00000450| 73 70 72 69 74 65 20 42 | 75 64 53 74 61 6d 70 20 |sprite B|udStamp |
|00000460| 3d 20 4c 65 66 74 4f 66 | 66 20 2b 20 28 48 53 65 |= LeftOf|f + (HSe|
|00000470| 67 2f 32 29 20 2b 20 28 | 28 49 6e 64 65 78 20 2d |g/2) + (|(Index -|
|00000480| 20 32 29 2a 48 53 65 67 | 29 0d 20 20 20 20 72 65 | 2)*HSeg|).    re|
|00000490| 70 65 61 74 20 77 69 74 | 68 20 69 6e 6e 65 72 20 |peat wit|h inner |
|000004a0| 3d 20 31 20 74 6f 20 33 | 0d 20 20 20 20 20 20 69 |= 1 to 3|.      i|
|000004b0| 66 20 42 75 64 74 79 70 | 65 73 28 6d 47 65 74 2c |f Budtyp|es(mGet,|
|000004c0| 49 6e 6e 65 72 29 20 3d | 20 54 52 55 45 20 74 68 |Inner) =| TRUE th|
|000004d0| 65 6e 0d 20 20 20 20 20 | 20 20 20 53 65 74 20 74 |en.     |   Set t|
|000004e0| 68 65 20 6c 6f 63 56 20 | 6f 66 20 73 70 72 69 74 |he locV |of sprit|
|000004f0| 65 20 42 75 64 53 74 61 | 6d 70 20 3d 20 54 6f 70 |e BudSta|mp = Top|
|00000500| 4f 66 66 20 2b 20 28 56 | 53 65 67 2f 32 29 20 2b |Off + (V|Seg/2) +|
|00000510| 20 28 28 69 6e 6e 65 72 | 20 2d 20 31 29 2a 56 53 | ((inner| - 1)*VS|
|00000520| 65 67 29 0d 20 20 20 20 | 20 20 20 20 53 65 74 20 |eg).    |    Set |
|00000530| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|00000540| 70 72 69 74 65 20 42 75 | 64 53 74 61 6d 70 20 74 |prite Bu|dStamp t|
|00000550| 6f 20 28 28 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |o ((the |number o|
|00000560| 66 20 63 61 73 74 20 22 | 42 75 64 20 4f 6e 65 22 |f cast "|Bud One"|
|00000570| 29 20 2b 20 69 6e 6e 65 | 72 20 2d 20 31 29 20 0d |) + inne|r - 1) .|
|00000580| 20 20 20 20 20 20 20 20 | 75 70 64 61 74 65 53 74 |        |updateSt|
|00000590| 61 67 65 0d 20 20 20 20 | 20 20 65 6e 64 20 69 66 |age.    |  end if|
|000005a0| 0d 20 20 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |.    end| repeat.|
|000005b0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 53 |  end re|peat.  S|
|000005c0| 65 74 20 74 68 65 20 6c | 6f 63 48 20 6f 66 20 73 |et the l|ocH of s|
|000005d0| 70 72 69 74 65 20 42 75 | 64 53 74 61 6d 70 20 3d |prite Bu|dStamp =|
|000005e0| 20 2d 39 39 39 39 0d 20 | 20 53 65 74 20 74 68 65 | -9999. | Set the|
|000005f0| 20 70 75 70 70 65 74 20 | 6f 66 20 73 70 72 69 74 | puppet |of sprit|
|00000600| 65 20 42 75 64 53 74 61 | 6d 70 20 3d 20 46 41 4c |e BudSta|mp = FAL|
|00000610| 53 45 0d 65 6e 64 20 53 | 65 74 42 75 64 73 0d 0d |SE.end S|etBuds..|
|00000620| 0d 4f 6e 20 70 6c 61 79 | 44 6f 67 0d 20 20 53 65 |.On play|Dog.  Se|
|00000630| 74 20 54 68 65 4e 61 6d | 65 20 3d 20 77 6f 72 64 |t TheNam|e = word|
|00000640| 20 52 61 6e 64 6f 6d 28 | 36 29 20 6f 66 20 22 72 | Random(|6) of "r|
|00000650| 61 69 6e 62 6f 20 74 69 | 67 65 72 20 72 61 63 6f |ainbo ti|ger raco|
|00000660| 6e 20 62 6c 75 65 20 79 | 65 6c 6c 6f 77 20 68 6f |n blue y|ellow ho|
|00000670| 72 6e 22 0d 20 20 0d 20 | 20 73 65 74 20 74 68 65 |rn".  . | set the|
|00000680| 20 63 61 73 74 6e 75 6d | 20 6f 66 20 73 70 72 69 | castnum| of spri|
|00000690| 74 65 20 31 38 20 3d 20 | 28 74 68 65 20 6e 75 6d |te 18 = |(the num|
|000006a0| 62 65 72 20 6f 66 20 63 | 61 73 74 20 74 68 65 6e |ber of c|ast then|
|000006b0| 61 6d 65 29 0d 20 20 49 | 66 20 74 68 65 20 63 61 |ame).  I|f the ca|
|000006c0| 73 74 6e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stnum of| sprite |
|000006d0| 31 38 20 3d 20 28 74 68 | 65 20 6e 75 6d 62 65 72 |18 = (th|e number|
|000006e0| 20 6f 66 20 63 61 73 74 | 20 22 62 6c 75 65 22 29 | of cast| "blue")|
|000006f0| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 70 70 65 74 | then.  |  puppet|
|00000700| 53 70 72 69 74 65 20 31 | 38 2c 20 66 61 6c 73 65 |Sprite 1|8, false|
|00000710| 0d 20 20 20 20 70 6c 61 | 79 20 22 50 69 7a 7a 61 |.    pla|y "Pizza|
|00000720| 22 0d 20 20 65 6e 64 20 | 69 66 0d 45 6e 64 20 70 |".  end |if.End p|
|00000730| 6c 61 79 44 6f 67 0d 0d | 4f 6e 20 50 6c 61 79 43 |layDog..|On PlayC|
|00000740| 61 74 0d 20 20 50 75 74 | 20 22 43 61 74 66 69 73 |at.  Put| "Catfis|
|00000750| 68 20 43 61 74 42 69 72 | 64 22 20 69 6e 74 6f 20 |h CatBir|d" into |
|00000760| 74 68 65 43 61 74 0d 20 | 20 50 75 74 20 52 61 6e |theCat. | Put Ran|
|00000770| 64 6f 6d 20 28 32 29 20 | 69 6e 74 6f 20 74 68 65 |dom (2) |into the|
|00000780| 43 61 73 74 0d 20 20 53 | 65 74 20 54 68 65 4e 61 |Cast.  S|et TheNa|
|00000790| 6d 65 20 3d 20 77 6f 72 | 64 20 74 68 65 63 61 73 |me = wor|d thecas|
|000007a0| 74 20 6f 66 20 74 68 65 | 43 61 74 0d 20 20 49 66 |t of the|Cat.  If|
|000007b0| 20 74 68 65 6e 61 6d 65 | 20 3d 20 22 63 61 74 66 | thename| = "catf|
|000007c0| 69 73 68 22 20 74 68 65 | 6e 20 0d 20 20 20 20 43 |ish" the|n .    C|
|000007d0| 61 74 66 69 73 68 0d 20 | 20 65 6c 73 65 20 0d 20 |atfish. | else . |
|000007e0| 20 20 20 43 61 74 42 69 | 72 64 0d 20 20 65 6e 64 |   CatBi|rd.  end|
|000007f0| 20 69 66 0d 20 20 0d 65 | 6e 64 20 50 6c 61 79 43 | if.  .e|nd PlayC|
|00000800| 61 74 0d 0d 4f 6e 20 43 | 61 74 66 69 73 68 0d 20 |at..On C|atfish. |
|00000810| 20 50 6c 61 79 20 22 63 | 61 74 41 22 0d 65 6e 64 | Play "c|atA".end|
|00000820| 20 43 61 74 66 69 73 68 | 0d 0d 4f 6e 20 43 61 74 | Catfish|..On Cat|
|00000830| 42 69 72 64 0d 20 20 50 | 6c 61 79 20 22 43 61 74 |Bird.  P|lay "Cat|
|00000840| 42 22 0d 65 6e 64 20 43 | 61 74 42 69 72 64 0d 0d |B".end C|atBird..|
|00000850| 0d 0d 4f 6e 20 4b 69 74 | 74 65 6e 0d 20 20 50 75 |..On Kit|ten.  Pu|
|00000860| 74 20 22 4b 49 54 54 45 | 4e 41 20 4b 49 54 54 45 |t "KITTE|NA KITTE|
|00000870| 4e 42 22 20 69 6e 74 6f | 20 54 68 65 4b 69 74 0d |NB" into| TheKit.|
|00000880| 20 20 50 75 74 20 52 61 | 6e 64 6f 6d 20 28 32 29 |  Put Ra|ndom (2)|
|00000890| 20 69 6e 74 6f 20 6d 79 | 43 61 73 74 0d 20 20 53 | into my|Cast.  S|
|000008a0| 65 74 20 54 68 65 4e 61 | 6d 65 20 3d 20 77 6f 72 |et TheNa|me = wor|
|000008b0| 64 20 6d 79 43 61 73 74 | 20 6f 66 20 74 68 65 4b |d myCast| of theK|
|000008c0| 69 74 0d 20 20 49 66 20 | 74 68 65 6e 61 6d 65 20 |it.  If |thename |
|000008d0| 3d 20 22 4b 69 74 74 65 | 6e 41 22 20 74 68 65 6e |= "Kitte|nA" then|
|000008e0| 20 0d 20 20 20 20 4b 69 | 74 42 69 72 64 0d 20 20 | .    Ki|tBird.  |
|000008f0| 65 6c 73 65 20 0d 20 20 | 20 20 4b 69 74 74 65 6e |else .  |  Kitten|
|00000900| 42 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 65 6e |B.  end |if.  .en|
|00000910| 64 20 4b 69 74 74 65 6e | 0d 0d 0d 4f 6e 20 4b 69 |d Kitten|...On Ki|
|00000920| 74 42 69 72 64 0d 20 20 | 50 6c 61 79 20 22 4b 49 |tBird.  |Play "KI|
|00000930| 54 54 45 4e 41 22 0d 65 | 6e 64 20 4b 69 74 42 69 |TTENA".e|nd KitBi|
|00000940| 72 64 0d 0d 0d 4f 6e 20 | 4b 49 54 54 45 4e 42 0d |rd...On |KITTENB.|
|00000950| 20 20 50 6c 61 79 20 22 | 4b 49 54 54 45 4e 42 22 |  Play "|KITTENB"|
|00000960| 0d 65 6e 64 20 4b 49 54 | 54 45 4e 42 0d 0d 4f 6e |.end KIT|TENB..On|
|00000970| 20 42 75 64 53 70 6f 74 | 74 69 6e 67 20 44 65 73 | BudSpot|ting Des|
|00000980| 74 46 72 61 6d 65 2c 42 | 75 64 54 79 70 65 0d 20 |tFrame,B|udType. |
|00000990| 20 47 6c 6f 62 61 6c 20 | 4d 41 58 53 50 4f 54 54 | Global |MAXSPOTT|
|000009a0| 49 4e 47 53 2c 4e 75 6d | 62 65 72 4f 66 53 70 6f |INGS,Num|berOfSpo|
|000009b0| 74 74 69 6e 67 73 2c 43 | 68 61 6e 63 65 53 70 6f |ttings,C|hanceSpo|
|000009c0| 74 74 69 6e 67 2c 53 63 | 72 65 65 6e 4e 75 6d 2c |tting,Sc|reenNum,|
|000009d0| 54 68 69 73 42 75 64 0d | 20 20 69 66 20 4f 62 6a |ThisBud.|  if Obj|
|000009e0| 65 63 74 50 28 4d 41 58 | 53 50 4f 54 54 49 4e 47 |ectP(MAX|SPOTTING|
|000009f0| 53 29 20 3d 20 46 41 4c | 53 45 20 74 68 65 6e 20 |S) = FAL|SE then |
|00000a00| 65 78 69 74 0d 20 20 69 | 66 20 4e 75 6d 62 65 72 |exit.  i|f Number|
|00000a10| 4f 66 53 70 6f 74 74 69 | 6e 67 73 28 6d 47 65 74 |OfSpotti|ngs(mGet|
|00000a20| 2c 53 63 72 65 65 6e 4e | 75 6d 29 20 3e 3d 20 4d |,ScreenN|um) >= M|
|00000a30| 41 58 53 50 4f 54 54 49 | 4e 47 53 28 6d 47 65 74 |AXSPOTTI|NGS(mGet|
|00000a40| 2c 53 63 72 65 65 6e 4e | 75 6d 29 20 74 68 65 6e |,ScreenN|um) then|
|00000a50| 20 52 65 74 75 72 6e 20 | 46 41 4c 53 45 0d 20 20 | Return |FALSE.  |
|00000a60| 69 66 20 54 68 69 73 42 | 75 64 28 6d 47 65 74 2c |if ThisB|ud(mGet,|
|00000a70| 42 75 64 54 79 70 65 29 | 20 3d 20 54 52 55 45 20 |BudType)| = TRUE |
|00000a80| 74 68 65 6e 20 52 65 74 | 75 72 6e 20 46 41 4c 53 |then Ret|urn FALS|
|00000a90| 45 0d 20 20 54 68 69 73 | 42 75 64 28 6d 50 75 74 |E.  This|Bud(mPut|
|00000aa0| 2c 42 75 64 54 79 70 65 | 2c 54 52 55 45 29 0d 20 |,BudType|,TRUE). |
|00000ab0| 20 4e 75 6d 62 65 72 4f | 66 53 70 6f 74 74 69 6e | NumberO|fSpottin|
|00000ac0| 67 73 28 6d 50 75 74 2c | 53 63 72 65 65 6e 4e 75 |gs(mPut,|ScreenNu|
|00000ad0| 6d 2c 28 4e 75 6d 62 65 | 72 4f 66 53 70 6f 74 74 |m,(Numbe|rOfSpott|
|00000ae0| 69 6e 67 73 28 6d 47 65 | 74 2c 53 63 72 65 65 6e |ings(mGe|t,Screen|
|00000af0| 4e 75 6d 29 20 2b 20 31 | 29 29 0d 20 20 70 6c 61 |Num) + 1|)).  pla|
|00000b00| 79 20 66 72 61 6d 65 20 | 64 65 73 74 46 72 61 6d |y frame |destFram|
|00000b10| 65 0d 20 20 69 66 20 43 | 68 65 63 6b 41 6c 6c 42 |e.  if C|heckAllB|
|00000b20| 75 64 73 28 29 20 3d 20 | 54 52 55 45 20 74 68 65 |uds() = |TRUE the|
|00000b30| 6e 20 67 6f 20 74 6f 20 | 66 72 61 6d 65 20 22 45 |n go to |frame "E|
|00000b40| 6e 64 47 61 6d 65 22 0d | 20 20 52 65 74 75 72 6e |ndGame".|  Return|
|00000b50| 20 54 52 55 45 0d 65 6e | 64 20 42 75 64 53 70 6f | TRUE.en|d BudSpo|
|00000b60| 74 74 69 6e 67 0d 0d 4f | 6e 20 43 68 65 63 6b 41 |tting..O|n CheckA|
|00000b70| 6c 6c 42 75 64 73 0d 20 | 20 47 6c 6f 62 61 6c 20 |llBuds. | Global |
|00000b80| 4d 41 58 53 50 4f 54 54 | 49 4e 47 53 2c 4e 75 6d |MAXSPOTT|INGS,Num|
|00000b90| 62 65 72 4f 66 53 70 6f | 74 74 69 6e 67 73 2c 43 |berOfSpo|ttings,C|
|00000ba0| 68 61 6e 63 65 53 70 6f | 74 74 69 6e 67 2c 53 63 |hanceSpo|tting,Sc|
|00000bb0| 72 65 65 6e 4e 75 6d 2c | 54 68 69 73 42 75 64 0d |reenNum,|ThisBud.|
|00000bc0| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 6e |  repeat| with in|
|00000bd0| 64 65 78 20 3d 20 31 20 | 74 6f 20 38 0d 20 20 20 |dex = 1 |to 8.   |
|00000be0| 20 70 75 74 20 4e 75 6d | 62 65 72 4f 66 53 70 6f | put Num|berOfSpo|
|00000bf0| 74 74 69 6e 67 73 28 6d | 47 65 74 2c 49 6e 64 65 |ttings(m|Get,Inde|
|00000c00| 78 29 0d 20 20 20 20 70 | 75 74 20 4d 41 58 53 50 |x).    p|ut MAXSP|
|00000c10| 4f 54 54 49 4e 47 53 28 | 6d 47 65 74 2c 49 6e 64 |OTTINGS(|mGet,Ind|
|00000c20| 65 78 29 0d 20 20 20 20 | 0d 20 20 20 20 69 66 20 |ex).    |.    if |
|00000c30| 4e 75 6d 62 65 72 4f 66 | 53 70 6f 74 74 69 6e 67 |NumberOf|Spotting|
|00000c40| 73 28 6d 47 65 74 2c 49 | 6e 64 65 78 29 20 3c 3e |s(mGet,I|ndex) <>|
|00000c50| 20 4d 41 58 53 50 4f 54 | 54 49 4e 47 53 28 6d 47 | MAXSPOT|TINGS(mG|
|00000c60| 65 74 2c 49 6e 64 65 78 | 29 20 74 68 65 6e 20 52 |et,Index|) then R|
|00000c70| 65 74 75 72 6e 20 46 41 | 4c 53 45 0d 20 20 65 6e |eturn FA|LSE.  en|
|00000c80| 64 20 72 65 70 65 61 74 | 0d 20 20 72 65 74 75 72 |d repeat|.  retur|
|00000c90| 6e 20 54 52 55 45 0d 65 | 6e 64 20 43 68 65 63 6b |n TRUE.e|nd Check|
|00000ca0| 41 6c 6c 62 75 64 73 0d | 0d 0d 4f 6e 20 49 6e 69 |Allbuds.|..On Ini|
|00000cb0| 74 32 0d 20 20 47 6c 6f | 62 61 6c 20 53 63 72 65 |t2.  Glo|bal Scre|
|00000cc0| 65 6e 4e 75 6d 2c 4f 76 | 65 72 61 6c 6c 42 75 64 |enNum,Ov|erallBud|
|00000cd0| 2c 54 68 69 73 42 75 64 | 0d 20 20 69 66 20 4f 62 |,ThisBud|.  if Ob|
|00000ce0| 6a 65 63 74 50 28 4f 76 | 65 72 61 6c 6c 42 75 64 |jectP(Ov|erallBud|
|00000cf0| 29 20 3d 20 46 41 4c 53 | 45 20 74 68 65 6e 20 65 |) = FALS|E then e|
|00000d00| 78 69 74 0d 20 20 70 75 | 74 20 35 20 69 6e 74 6f |xit.  pu|t 5 into|
|00000d10| 20 53 63 72 65 65 6e 4e | 75 6d 0d 20 20 70 75 74 | ScreenN|um.  put|
|00000d20| 20 4f 76 65 72 61 6c 6c | 42 75 64 28 6d 47 65 74 | Overall|Bud(mGet|
|00000d30| 2c 53 63 72 65 65 6e 4e | 75 6d 29 20 69 6e 74 6f |,ScreenN|um) into|
|00000d40| 20 54 68 69 73 42 75 64 | 0d 65 6e 64 20 49 6e 69 | ThisBud|.end Ini|
|00000d50| 74 32 0d 0d 0d 0d 6f 6e | 20 41 6c 6c 42 75 64 73 |t2....on| AllBuds|
|00000d60| 0d 20 20 47 6c 6f 62 61 | 6c 20 54 68 69 73 42 75 |.  Globa|l ThisBu|
|00000d70| 64 2c 4e 75 6d 62 65 72 | 4f 66 53 70 6f 74 74 69 |d,Number|OfSpotti|
|00000d80| 6e 67 73 2c 4d 41 58 53 | 50 4f 54 54 49 4e 47 53 |ngs,MAXS|POTTINGS|
|00000d90| 2c 53 63 72 65 65 6e 4e | 75 6d 2c 4f 76 65 72 61 |,ScreenN|um,Overa|
|00000da0| 6c 6c 42 75 64 0d 20 20 | 52 65 70 65 61 74 20 77 |llBud.  |Repeat w|
|00000db0| 69 74 68 20 69 6e 64 65 | 78 20 3d 20 31 20 74 6f |ith inde|x = 1 to|
|00000dc0| 20 38 0d 20 20 20 20 70 | 75 74 20 22 54 6f 74 61 | 8.    p|ut "Tota|
|00000dd0| 6c 20 6e 75 6d 62 65 72 | 20 6f 66 20 73 70 6f 74 |l number| of spot|
|00000de0| 74 69 6e 67 73 20 66 6f | 72 20 73 65 63 74 69 6f |tings fo|r sectio|
|00000df0| 6e 20 4e 6f 2e 20 22 20 | 26 20 69 6e 64 65 78 0d |n No. " |& index.|
|00000e00| 20 20 20 20 70 75 74 20 | 4d 41 58 53 50 4f 54 54 |    put |MAXSPOTT|
|00000e10| 49 4e 47 53 28 6d 47 65 | 74 2c 49 6e 64 65 78 29 |INGS(mGe|t,Index)|
|00000e20| 0d 20 20 20 20 70 75 74 | 20 22 4e 75 6d 62 65 72 |.    put| "Number|
|00000e30| 20 6f 66 20 62 75 64 73 | 20 73 70 6f 74 74 65 64 | of buds| spotted|
|00000e40| 20 69 6e 20 53 65 63 74 | 69 6f 6e 20 4e 6f 2e 20 | in Sect|ion No. |
|00000e50| 22 20 26 20 69 6e 64 65 | 78 0d 20 20 20 20 70 75 |" & inde|x.    pu|
|00000e60| 74 20 4e 75 6d 62 65 72 | 4f 66 53 70 6f 74 74 69 |t Number|OfSpotti|
|00000e70| 6e 67 73 28 6d 67 65 74 | 2c 49 6e 64 65 78 29 0d |ngs(mget|,Index).|
|00000e80| 20 20 20 20 70 75 74 20 | 22 42 75 64 20 54 79 70 |    put |"Bud Typ|
|00000e90| 65 73 20 53 70 6f 74 74 | 65 64 22 0d 20 20 20 20 |es Spott|ed".    |
|00000ea0| 70 75 74 20 22 52 61 76 | 65 22 0d 20 20 20 20 70 |put "Rav|e".    p|
|00000eb0| 75 74 20 4f 76 65 72 61 | 6c 6c 42 75 64 28 6d 47 |ut Overa|llBud(mG|
|00000ec0| 65 74 2c 69 6e 64 65 78 | 29 20 69 6e 74 6f 20 54 |et,index|) into T|
|00000ed0| 65 6d 70 4f 62 6a 0d 20 | 20 20 20 69 66 20 4f 62 |empObj. |   if Ob|
|00000ee0| 6a 65 63 74 50 28 74 65 | 6d 70 4f 62 6a 29 20 3d |jectP(te|mpObj) =|
|00000ef0| 20 46 41 4c 53 45 20 74 | 68 65 6e 20 65 78 69 74 | FALSE t|hen exit|
|00000f00| 0d 20 20 20 20 70 75 74 | 20 54 65 6d 70 4f 62 6a |.    put| TempObj|
|00000f10| 28 6d 47 65 74 2c 31 29 | 0d 20 20 20 20 70 75 74 |(mGet,1)|.    put|
|00000f20| 20 22 52 6f 6d 22 0d 20 | 20 20 20 70 75 74 20 54 | "Rom". |   put T|
|00000f30| 65 6d 70 4f 62 6a 28 6d | 47 65 74 2c 32 29 0d 20 |empObj(m|Get,2). |
|00000f40| 20 20 20 70 75 74 20 22 | 52 61 6e 74 22 0d 20 20 |   put "|Rant".  |
|00000f50| 20 20 70 75 74 20 54 65 | 6d 70 4f 62 6a 28 6d 47 |  put Te|mpObj(mG|
|00000f60| 65 74 2c 33 29 0d 20 20 | 65 6e 64 20 72 65 70 65 |et,3).  |end repe|
|00000f70| 61 74 0d 65 6e 64 20 4f | 56 65 72 61 6c 6c 42 75 |at.end O|VerallBu|
|00000f80| 64 73 0d 0d 0d 0d 4f 6e | 20 52 61 6e 74 54 61 6c |ds....On| RantTal|
|00000f90| 6b 0d 20 20 50 75 70 70 | 65 74 53 6f 75 6e 64 20 |k.  Pupp|etSound |
|00000fa0| 77 6f 72 64 20 52 61 6e | 64 6f 6d 20 28 35 29 20 |word Ran|dom (5) |
|00000fb0| 6f 66 20 22 70 73 35 20 | 62 79 74 20 62 75 64 20 |of "ps5 |byt bud |
|00000fc0| 6d 61 67 20 70 73 36 22 | 0d 65 6e 64 20 52 61 6e |mag ps6"|.end Ran|
|00000fd0| 74 54 61 6c 6b 0d 0d 0d | 4f 6e 20 52 61 76 65 54 |tTalk...|On RaveT|
|00000fe0| 61 6c 6b 0d 20 20 50 75 | 70 70 65 74 53 6f 75 6e |alk.  Pu|ppetSoun|
|00000ff0| 64 20 77 6f 72 64 20 52 | 61 6e 64 6f 6d 20 28 35 |d word R|andom (5|
|00001000| 29 20 6f 66 20 22 73 63 | 75 20 67 69 6c 20 76 6f |) of "sc|u gil vo|
|00001010| 6c 20 6f 63 65 20 62 75 | 72 22 0d 65 6e 64 20 52 |l oce bu|r".end R|
|00001020| 61 76 65 54 61 6c 6b 0d | 0d 4f 6e 20 52 6f 6d 54 |aveTalk.|.On RomT|
|00001030| 61 6c 6b 0d 20 20 50 75 | 70 70 65 74 53 6f 75 6e |alk.  Pu|ppetSoun|
|00001040| 64 20 77 6f 72 64 20 52 | 61 6e 64 6f 6d 20 28 35 |d word R|andom (5|
|00001050| 29 20 6f 66 20 22 68 63 | 6b 20 63 63 63 20 50 72 |) of "hc|k ccc Pr|
|00001060| 6d 41 20 63 6f 72 20 70 | 72 62 22 0d 45 6e 64 20 |mA cor p|rb".End |
|00001070| 52 6f 6d 54 61 6c 6b 0d | 30 52 61 75 6c 20 22 74 |RomTalk.|0Raul "t|
|00001080| 68 65 20 2b 35 20 4d 61 | 67 69 63 20 41 6e 69 6d |he +5 Ma|gic Anim|
|00001090| 61 74 6f 72 22 20 2d 20 | 43 61 72 74 6f 6f 6e 73 |ator" - |Cartoons|
|000010a0| 20 41 6e 69 6d 61 74 65 | 64 27 54 65 72 72 79 20 | Animate|d'Terry |
|000010b0| 52 2e 20 53 63 68 75 73 | 73 6c 65 72 20 2d 20 67 |R. Schus|sler - g|
|000010c0| 72 61 79 20 6d 61 74 74 | 65 72 20 64 65 73 69 67 |ray matt|er desig|
|000010d0| 6e 00 00                |                         |n..     |        |
+--------+-------------------------+-------------------------+--------+--------+